home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Co-Cz / Console.cpt / TTY Console / card_2229.txt < prev    next >
Text File  |  1989-10-31  |  10KB  |  474 lines
  1. -- card: 2229 from stack: in
  2. -- bmap block id: 2540
  3. -- flags: 0000
  4. -- background id: 2754
  5. -- name: Settings
  6. ----- HyperTalk script -----
  7. on doBuadRotate whichOne
  8.   set the hilite of cd button "300 Baud" to false
  9.   set the hilite of cd button "1200 Baud" to false
  10.   set the hilite of cd button "2400 Baud" to false
  11.   set the hilite of cd button "4800 Baud" to false
  12.   set the hilite of cd button "9600 Baud" to false
  13.   set the hilite of cd button "19200 Baud" to false
  14.   set the hilite of cd button whichOne to true
  15.   doConfig
  16. end doBuadRotate
  17.  
  18.  
  19.  
  20. -- part 1 (field)
  21. -- low flags: 01
  22. -- high flags: 0002
  23. -- rect: left=182 top=20 right=48 bottom=300
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 3
  28. -- text size: 18
  29. -- style flags: 0
  30. -- line height: 24
  31. -- part name: Settings
  32.  
  33.  
  34. -- part 2 (button)
  35. -- low flags: 00
  36. -- high flags: 8006
  37. -- rect: left=33 top=112 right=134 bottom=133
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: 300 Baud
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   doBuadRotate (the short name of the target)
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 3 (field)
  54. -- low flags: 01
  55. -- high flags: 0002
  56. -- rect: left=33 top=70 right=96 bottom=126
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 3
  61. -- text size: 18
  62. -- style flags: 0
  63. -- line height: 24
  64. -- part name: Speed
  65.  
  66.  
  67. -- part 4 (button)
  68. -- low flags: 00
  69. -- high flags: 8006
  70. -- rect: left=33 top=136 right=158 bottom=133
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: 1200 Baud
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   doBuadRotate (the short name of the target)
  82. end mouseUp
  83.  
  84.  
  85. -- part 5 (button)
  86. -- low flags: 00
  87. -- high flags: 8006
  88. -- rect: left=33 top=160 right=182 bottom=133
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: 2400 Baud
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   doBuadRotate (the short name of the target)
  100. end mouseUp
  101.  
  102.  
  103. -- part 6 (button)
  104. -- low flags: 00
  105. -- high flags: 8006
  106. -- rect: left=33 top=184 right=206 bottom=133
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: 4800 Baud
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   doBuadRotate (the short name of the target)
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 7 (button)
  123. -- low flags: 00
  124. -- high flags: C006
  125. -- rect: left=33 top=208 right=230 bottom=133
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: 9600 Baud
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   doBuadRotate (the short name of the target)
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 8 (button)
  142. -- low flags: 00
  143. -- high flags: 8006
  144. -- rect: left=33 top=233 right=255 bottom=133
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: 19200 Baud
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   doBuadRotate (the short name of the target)
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 9 (field)
  161. -- low flags: 01
  162. -- high flags: 0002
  163. -- rect: left=187 top=174 right=200 bottom=298
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 3
  168. -- text size: 18
  169. -- style flags: 0
  170. -- line height: 24
  171. -- part name: Data Bits
  172.  
  173.  
  174. -- part 10 (button)
  175. -- low flags: 00
  176. -- high flags: C006
  177. -- rect: left=188 top=112 right=133 bottom=297
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: Modem Port
  186. ----- HyperTalk script -----
  187. on mouseUp
  188.   set the hilite of cd button "Printer Port" to false
  189.   set the hilite of cd button "Modem Port" to true
  190.   doConfig
  191. end mouseUp
  192.  
  193.  
  194.  
  195. -- part 14 (field)
  196. -- low flags: 01
  197. -- high flags: 0002
  198. -- rect: left=187 top=70 right=96 bottom=298
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 3
  203. -- text size: 18
  204. -- style flags: 0
  205. -- line height: 24
  206. -- part name: Port
  207.  
  208.  
  209. -- part 15 (button)
  210. -- low flags: 00
  211. -- high flags: 8006
  212. -- rect: left=188 top=219 right=241 bottom=297
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: 8 Data Bits
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   set the hilite of cd button "7 Data Bits" to false
  224.   set the hilite of cd button "8 Data Bits" to true
  225.   doConfig
  226. end mouseUp
  227.  
  228.  
  229.  
  230. -- part 16 (button)
  231. -- low flags: 00
  232. -- high flags: C006
  233. -- rect: left=188 top=244 right=266 bottom=297
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: 7 Data Bits
  242. ----- HyperTalk script -----
  243. on mouseUp
  244.   set the hilite of cd button "8 Data Bits" to false
  245.   set the hilite of cd button "7 Data Bits" to true
  246.   doConfig
  247. end mouseUp
  248.  
  249.  
  250.  
  251. -- part 17 (field)
  252. -- low flags: 01
  253. -- high flags: 0002
  254. -- rect: left=344 top=70 right=96 bottom=455
  255. -- title width / last selected line: 0
  256. -- icon id / first selected line: 0 / 0
  257. -- text alignment: 1
  258. -- font id: 3
  259. -- text size: 18
  260. -- style flags: 0
  261. -- line height: 24
  262. -- part name: Parity
  263.  
  264.  
  265. -- part 18 (button)
  266. -- low flags: 00
  267. -- high flags: 8006
  268. -- rect: left=369 top=103 right=124 bottom=432
  269. -- title width / last selected line: 0
  270. -- icon id / first selected line: 0 / 0
  271. -- text alignment: 1
  272. -- font id: 0
  273. -- text size: 12
  274. -- style flags: 0
  275. -- line height: 16
  276. -- part name: None
  277. ----- HyperTalk script -----
  278. on mouseUp
  279.   set the hilite of cd button "Odd" to false
  280.   set the hilite of cd button "Even" to false
  281.   set the hilite of cd button "None" to true
  282.   doConfig
  283. end mouseUp
  284.  
  285.  
  286.  
  287. -- part 21 (button)
  288. -- low flags: 00
  289. -- high flags: 8006
  290. -- rect: left=188 top=136 right=158 bottom=297
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 1
  294. -- font id: 0
  295. -- text size: 12
  296. -- style flags: 0
  297. -- line height: 16
  298. -- part name: Printer Port
  299. ----- HyperTalk script -----
  300. on mouseUp
  301.   set the hilite of cd button "Modem Port" to false
  302.   set the hilite of cd button "Printer Port" to true
  303.   doConfig
  304. end mouseUp
  305.  
  306.  
  307.  
  308. -- part 22 (button)
  309. -- low flags: 00
  310. -- high flags: 8006
  311. -- rect: left=369 top=127 right=149 bottom=432
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 0 / 0
  314. -- text alignment: 1
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: Odd
  320. ----- HyperTalk script -----
  321. on mouseUp
  322.   set the hilite of cd button "None" to false
  323.   set the hilite of cd button "Even" to false
  324.   set the hilite of cd button "Odd" to true
  325.   doConfig
  326. end mouseUp
  327.  
  328.  
  329.  
  330. -- part 23 (button)
  331. -- low flags: 00
  332. -- high flags: C006
  333. -- rect: left=369 top=151 right=172 bottom=432
  334. -- title width / last selected line: 0
  335. -- icon id / first selected line: 0 / 0
  336. -- text alignment: 1
  337. -- font id: 0
  338. -- text size: 12
  339. -- style flags: 0
  340. -- line height: 16
  341. -- part name: Even
  342. ----- HyperTalk script -----
  343. on mouseUp
  344.   set the hilite of cd button "Odd" to false
  345.   set the hilite of cd button "None" to false
  346.   set the hilite of cd button "Even" to true
  347.   doConfig
  348. end mouseUp
  349.  
  350.  
  351.  
  352. -- part 24 (field)
  353. -- low flags: 01
  354. -- high flags: 0002
  355. -- rect: left=344 top=180 right=206 bottom=455
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 3
  360. -- text size: 18
  361. -- style flags: 0
  362. -- line height: 24
  363. -- part name: Stop Bits
  364.  
  365.  
  366. -- part 25 (button)
  367. -- low flags: 00
  368. -- high flags: C006
  369. -- rect: left=348 top=211 right=233 bottom=448
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 0 / 0
  372. -- text alignment: 1
  373. -- font id: 0
  374. -- text size: 12
  375. -- style flags: 0
  376. -- line height: 16
  377. -- part name: 1 Stop Bit
  378. ----- HyperTalk script -----
  379. on mouseUp
  380.   set the hilite of cd button "1.5 Stop Bits" to false
  381.   set the hilite of cd button "2 Stop Bits" to false
  382.   set the hilite of cd button "1 Stop Bit" to true
  383.   doConfig
  384. end mouseUp
  385.  
  386.  
  387.  
  388. -- part 26 (button)
  389. -- low flags: 00
  390. -- high flags: 8006
  391. -- rect: left=348 top=236 right=258 bottom=459
  392. -- title width / last selected line: 0
  393. -- icon id / first selected line: 0 / 0
  394. -- text alignment: 1
  395. -- font id: 0
  396. -- text size: 12
  397. -- style flags: 0
  398. -- line height: 16
  399. -- part name: 1.5 Stop Bits
  400. ----- HyperTalk script -----
  401. on mouseUp
  402.   set the hilite of cd button "1 Stop Bit" to false
  403.   set the hilite of cd button "2 Stop Bits" to false
  404.   set the hilite of cd button "1.5 Stop Bits" to true
  405.   doConfig
  406. end mouseUp
  407.  
  408.  
  409.  
  410. -- part 27 (button)
  411. -- low flags: 00
  412. -- high flags: 8006
  413. -- rect: left=348 top=261 right=283 bottom=448
  414. -- title width / last selected line: 0
  415. -- icon id / first selected line: 0 / 0
  416. -- text alignment: 1
  417. -- font id: 0
  418. -- text size: 12
  419. -- style flags: 0
  420. -- line height: 16
  421. -- part name: 2 Stop Bits
  422. ----- HyperTalk script -----
  423. on mouseUp
  424.   set the hilite of cd button "1 Stop Bit" to false
  425.   set the hilite of cd button "1.5 Stop Bits" to false
  426.   set the hilite of cd button "2 Stop Bits" to true
  427.   doConfig
  428. end mouseUp
  429.  
  430.  
  431.  
  432. -- part 30 (button)
  433. -- low flags: 00
  434. -- high flags: 8002
  435. -- rect: left=199 top=280 right=335 bottom=290
  436. -- title width / last selected line: 0
  437. -- icon id / first selected line: 2162 / 2162
  438. -- text alignment: 1
  439. -- font id: 0
  440. -- text size: 12
  441. -- style flags: 0
  442. -- line height: 16
  443. -- part name: Return to Console
  444. ----- HyperTalk script -----
  445. on mouseUp
  446.   go to cd "Console"
  447.   show the message box
  448. end mouseUp
  449.  
  450.  
  451.  
  452. -- part contents for card part 1
  453. ----- text -----
  454. Settings
  455.  
  456. -- part contents for card part 3
  457. ----- text -----
  458. Speed
  459.  
  460. -- part contents for card part 9
  461. ----- text -----
  462. Data Bits
  463.  
  464. -- part contents for card part 14
  465. ----- text -----
  466. Port
  467.  
  468. -- part contents for card part 17
  469. ----- text -----
  470. Parity
  471.  
  472. -- part contents for card part 24
  473. ----- text -----
  474. Stop Bits